home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / lib / perl / 5.10.0 / Encode / MIME / Name.pm < prev   
Encoding:
Perl POD Document  |  2009-06-26  |  3.5 KB  |  95 lines
  1. package Encode::MIME::Name;
  2. use strict;
  3. use warnings;
  4. our $VERSION = do { my @r = ( q$Revision: 1.1 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
  5.  
  6. our %MIME_NAME_OF = (
  7.     'AdobeStandardEncoding' => 'Adobe-Standard-Encoding',
  8.     'AdobeSymbol'           => 'Adobe-Symbol-Encoding',
  9.     'ascii'                 => 'US-ASCII',
  10.     'big5-hkscs'            => 'Big5-HKSCS',
  11.     'cp1026'                => 'IBM1026',
  12.     'cp1047'                => 'IBM1047',
  13.     'cp1250'                => 'windows-1250',
  14.     'cp1251'                => 'windows-1251',
  15.     'cp1252'                => 'windows-1252',
  16.     'cp1253'                => 'windows-1253',
  17.     'cp1254'                => 'windows-1254',
  18.     'cp1255'                => 'windows-1255',
  19.     'cp1256'                => 'windows-1256',
  20.     'cp1257'                => 'windows-1257',
  21.     'cp1258'                => 'windows-1258',
  22.     'cp37'                  => 'IBM037',
  23.     'cp424'                 => 'IBM424',
  24.     'cp437'                 => 'IBM437',
  25.     'cp500'                 => 'IBM500',
  26.     'cp775'                 => 'IBM775',
  27.     'cp850'                 => 'IBM850',
  28.     'cp852'                 => 'IBM852',
  29.     'cp855'                 => 'IBM855',
  30.     'cp857'                 => 'IBM857',
  31.     'cp860'                 => 'IBM860',
  32.     'cp861'                 => 'IBM861',
  33.     'cp862'                 => 'IBM862',
  34.     'cp863'                 => 'IBM863',
  35.     'cp864'                 => 'IBM864',
  36.     'cp865'                 => 'IBM865',
  37.     'cp866'                 => 'IBM866',
  38.     'cp869'                 => 'IBM869',
  39.     'cp936'                 => 'GBK',
  40.     'euc-jp'                => 'EUC-JP',
  41.     'euc-kr'                => 'EUC-KR',
  42.     #'gb2312-raw'            => 'GB2312', # no, you're wrong, I18N::Charset
  43.     'hp-roman8'             => 'hp-roman8',
  44.     'hz'                    => 'HZ-GB-2312',
  45.     'iso-2022-jp'           => 'ISO-2022-JP',
  46.     'iso-2022-jp-1'         => 'ISO-2022-JP',
  47.     'iso-2022-kr'           => 'ISO-2022-KR',
  48.     'iso-8859-1'            => 'ISO-8859-1',
  49.     'iso-8859-10'           => 'ISO-8859-10',
  50.     'iso-8859-13'           => 'ISO-8859-13',
  51.     'iso-8859-14'           => 'ISO-8859-14',
  52.     'iso-8859-15'           => 'ISO-8859-15',
  53.     'iso-8859-16'           => 'ISO-8859-16',
  54.     'iso-8859-2'            => 'ISO-8859-2',
  55.     'iso-8859-3'            => 'ISO-8859-3',
  56.     'iso-8859-4'            => 'ISO-8859-4',
  57.     'iso-8859-5'            => 'ISO-8859-5',
  58.     'iso-8859-6'            => 'ISO-8859-6',
  59.     'iso-8859-7'            => 'ISO-8859-7',
  60.     'iso-8859-8'            => 'ISO-8859-8',
  61.     'iso-8859-9'            => 'ISO-8859-9',
  62.     #'jis0201-raw'           => 'JIS_X0201',
  63.     #'jis0208-raw'           => 'JIS_C6226-1983',
  64.     #'jis0212-raw'           => 'JIS_X0212-1990',
  65.     'koi8-r'                => 'KOI8-R',
  66.     'koi8-u'                => 'KOI8-U',
  67.     #'ksc5601-raw'           => 'KS_C_5601-1987',
  68.     'shiftjis'              => 'Shift_JIS',
  69.     'UTF-16'                => 'UTF-16',
  70.     'UTF-16BE'              => 'UTF-16BE',
  71.     'UTF-16LE'              => 'UTF-16LE',
  72.     'UTF-32'                => 'UTF-32',
  73.     'UTF-32BE'              => 'UTF-32BE',
  74.     'UTF-32LE'              => 'UTF-32LE',
  75.     'UTF-7'                 => 'UTF-7',
  76.     'utf8'                  => 'UTF-8',
  77.     'utf-8-strict'          => 'UTF-8',
  78.     'viscii'                => 'VISCII',
  79. );
  80.  
  81. sub get_mime_name($) { $MIME_NAME_OF{$_[0]} };
  82.  
  83. 1;
  84. __END__
  85.  
  86. =head1 NAME
  87.  
  88. Encode::MIME::NAME -- internally used by Encode
  89.  
  90. =head1 SEE ALSO
  91.  
  92. L<I18N::Charset>
  93.  
  94. =cut
  95.